home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / patches / fw4030r4.lha / Install FinalWriter-030 < prev    next >
Text File  |  1996-03-25  |  2KB  |  99 lines
  1. ; $VER: FinalWriter-030_Install 1.13 (25.3.96)
  2.  
  3. (set version "4.0")
  4.  
  5. (onerror (exit (quiet)))
  6.  
  7. (message
  8.     "\n\nFinalWriter " version " '030"
  9.     "\nCopyright 1995-96 Martin Berndt"
  10.     "\n\n\n!!! This Patch is SHAREWARE !!!"
  11.     "\n\nPlease read the \"ReadMe.txt\" file."
  12. )
  13.  
  14. (set @default-dest
  15.     (askdir
  16.         (prompt "Where is your FinalWriter Drawer?")
  17.         (help @askfile-help)
  18.         (default "SYS:FinalWriter")
  19.         (newpath)
  20.     )
  21. )
  22.  
  23. (set language
  24.     (askchoice
  25.         (prompt "Select your version")
  26.         (help @askchoice-help)
  27.         (choices "US1  26-Jul-95 (American English)"
  28.              "US2  23-Aug-95 (American English)"
  29.              "US3   5-Oct-95 (American English)"
  30.              "US4  27-Nov-95 (American English)"
  31.              "GER1 31-Oct-95 (German)"
  32.              "GER2 27-Nov-95 (German)")
  33.     )
  34. )
  35.  
  36. (set backup
  37.     (askoptions
  38.         (prompt "Options")
  39.         (help @askoptions-help)
  40.         (choices "Create Backup Files")
  41.     )
  42. )
  43.  
  44. (set n 0)
  45. (set percent 0)
  46.  
  47. (while (set name (select n "FinalWriter" "swpost.library" "swshell.library"
  48.                "cachemap.library" "qfont.library" "")) (
  49.     (set n (+ n 1))
  50.     (complete percent)
  51.     (if (= n 1)
  52.         (set file name)
  53.         (set file ("FWLibs/%s" name))
  54.     )
  55.     (set newfile (tackon @default-dest file))
  56.     (set oldfile (cat newfile ".bak"))
  57.     (if (= (exists newfile) 0)
  58.         (abort name " not found!")
  59.     )
  60.     (rename newfile oldfile)
  61.     (if (< n 4) (
  62.         (if (= n 1) (
  63.             (if (= language 0) (
  64.                 (working "\n\nUpdating to new version")
  65.                 (if (<> (run ("spatch \"-o%s\" \"-p%sUS1.pch\" \"%s\"" newfile name oldfile)) 0) (
  66.                     (rename oldfile newfile)
  67.                     (abort "Wrong Version!")
  68.                 ))
  69.                 (delete oldfile)
  70.                 (rename newfile oldfile)
  71.                 (set language 1)
  72.             ))
  73.             (set name (cat name (select language "US1" "US2" "US3" "US4" "GER1" "GER2")))
  74.         ))
  75.         (if (= n 3) (
  76.             (if (< language 4) (
  77.                 (set name (cat name (".1")))
  78.             ) (
  79.                 (set name (cat name (".2")))
  80.         ))))
  81.         (working "\n\nPatching\n" newfile)
  82.         (if (<> (run ("spatch \"-o%s\" \"-p%s.pch\" \"%s\"" newfile name oldfile)) 0) (
  83.             (rename oldfile newfile)
  84.             (abort "Wrong Version!")
  85.         ))
  86.         (set percent (+ percent 30))
  87.     ) (
  88.         (copyfiles
  89.             (prompt "Copying " name)
  90.             (help @copyfiles-help)
  91.             (source name)
  92.             (dest (tackon @default-dest "FWLibs"))
  93.             (optional "force" "askuser")
  94.         )
  95.         (set percent (+ percent 5))
  96.     ))
  97.     (if (= backup 0) (delete oldfile))
  98. ))
  99.